PC World Interactive 7/PC World Interactive 7.iso/bb2000/files/BlueMenu.dxr/00016.ls

Text File | 1998-02-20 | 508 b | 27 lines

global gIntroTriggerFlag, gMasterObj

on startMovie
  set the exitLock to 1
  if voidp(gMasterObj) or (gMasterObj = 0) then
    set gMasterObj to new(script "masterScript")
  end if
  if voidp(gIntroTriggerFlag) then
    set gIntroTriggerFlag to 0
  end if
  autoUnloadMovie(gMasterObj)
end

on idle
  if the platform = "Windows,32" then
    checkSound(gMasterObj)
  end if
end

on goWhichMovie
  if gIntroTriggerFlag then
    autoGoMovie(gMasterObj, "BlueGame", 0)
  else
    go(1, "BlueIntr")
  end if
end